DSC I DENT HI 9 3/7/68 

** CHANGED 11/25/68 DD. LOC DTE+ 1 

* ENTRY POINTS 

ENTRY DRMTRY*DTXS1*IDCL 

ENTRY AWD* ARD, INTNOP* DTEB 

ENTRY DSCFLG*DSCINT*DSCMSK,DTE 

ENTRY NDCL*DTH*DTS*DTC*DTW, DTP 

ENTRY S5MF*SWSF*DRMSI*DRMSO 

ENTRY DRQ* DRQU* EDCL* DTXS2 

ENTRY DFDL*DFER*DFRX*DFCD 

ENTRY DREW*DWND*DBSR*DFSR 

ENTRY DIEOR*DOEOR*DISR*DDLR*DGEQF 



IF -1 



ENDF 



ENTRY 
* ENTRIES (FROM 



DCWBIT 

DRQ 

DRQU 

SDSCMS'K 

STABLE 

ETABLE 

L TABLE 

CDBA 



DRMOPNi I DiM, DCWBIT 
MDBQ) 
ENTRY FBWRD 

ENTRY BXO*BBP*BFP*BIN,BIC J 
DATA 40000000B 

BSS NDRQ*4 

DATA DCBR+DRO 

DATA 777774B 

DATA -1. 



BDN*BDC*BIP*BIA 



ENDR 



CDDA 



DTA3 


ZRO 


DTAR 


ZRO; 




ETR 




LSH 




BRM 


DTEC 


ZRO; 




BRR 




LDA 


DTEB 


ZRO; 



RPT WINLEN; 

EQU * 

EXT *- TABLE 

ZRO; SUB = FAVDS; ETR DS'CMSK 

LRSH 23; DIV = NWINBLKS*4; CBA 

LRSH 3J COPY BX*Bi LRSH 4 

XXB; LSH l; CXB; LRSH 19 

DIV = 24; BRR CDBA 

ZROi STB CDDA1; MUL =241 LSH 23 

ADD CDDA 1 J LRSH 4; COPY 6X,B 

LRSH 1 J XXB; LSH 41 CXB; LSH 3 

ADD =FAVDS; BRR CDDA 

CDBA; STA DTA3 
TABLE* 2; BRU DTA1 
CXA; SKE =LTABLE* BRU * + 2 
DTA3* BRU DTA2* BRR DTA 
CLA; LDB TABLE*2* LDX =23 

NOD 46* EOR X2; LCY 25*2; CXA; CNA 

LDX DTA3; STB TABLE* 2 

COPY XA, AB; BRM CDDA 

SKR* DBAJOB; NOP; LDX BUFF 

MIN DTA; BRR DTA 



LDA INT31; LSH 9; EOR CLINT; MUL REAL; LSH 32 
=(NOT)BIT0; MUL =NAVDB 
2; ADD =FAVDS 
DTA; BRR DTAR; MIN DTAR; BRR DTAR 

ETR DSCMSK; SKG =FAVDS-4 
DTEC; MIN DTEC; BRM CDBA; CAX 
TABLE* 2; XXB; BRR DTEC 

BRM DTEC; BRR DTEB; LCY 0*2 



CDDA1 ' 


' ZRO 


DTA 


ZRO; BRM 


DTA2 


AXC; SKE 




BRX *+l; 




CLA; SKE 


DTA1 


STX DTA3; 



DTE 

SKG 
BRM 



ETR 
SKE 
ZRO 
ETR 



=CNOT)BIT0J RCY 0,2l XX6 
TABLE* 2> MIN DTEBj STA TABLE, 2i 



BRR DTEB 



DSCMSK DD 11/2 5/68 - KILL HIGH BIT 



OVER 
DTECTR 

•DRMOPN 



IF DB ADDRESS OVER TOP 
=TOPi BRU *+2! BRU OVER 
DTEC* BRR DTEJ LCY 0,2 

SKA =BIT0; MIN DTECTRl 

STA TABLE, 2 
MIN* DBAJOBJ LDX BUFF* BRR DTE 

ZRO COUNT OF ERRs UNMAP AN 



OF WINDOW, DON'T 
DC 7/29/68 



MRG sBIT0J RGY 



IN LAST DB ADDR 
UNMAP, ELSE DO 



21 XXB 



ALREADY UNMAPPED DB 



.* 

* 
* 



'DRMCLS' 1 1/13/65 



THESE BELONG 
CLOSE DRUM 



TO 'MONOPN 



AND 'MONCLS 



AND OPEN AND 



DRMOPN 
D0PN2 



* 

* 
DOPN10 



D0PN13 
DOPNT 1 



D0PN4 

D0PN14 
DO PN 9 



ZRO 

LDA 

MIN 

ABCJ 

STA 

STA 

STA 

CXA 

ADD 

SKB 

STA 

BRM 

LDA 

ETR 

SKG 

BRU 

STA 

BRM 

SKA 

LDX 

SKN 

LDA 

SKA 

MRG 

SKA 

LDX 

BRX 

LDX 

ABC* 

LDA 

LDB 

LDX 

LDA 

LDA 

BRU' 

CLA 

MIN 



DEV ' 
DSCTOPl SKA OUTBITJ MIN DSCWOP. 
STA BIN, 23 LDA =-1 
BIC2 > 
BDC, 2 
BDN, 2 

=BXO-l 

OUTBIT* ADD =1 

BIP,2 

BSET 

SS01 

DSCMSK 

= 

D0PN4 

BIA,2 
DTEC,**BRU D0PN12J*LCY 0,2 ASTERISKS BY DC 7/29/68 
=BIT0**BRU DOPN1 

BUFF**LDA BIA,2* LDB DSCMSKl LRSH 2J LDX =-NFILE+a 
EFA, 2l SKM EFA,2l BRU DOPN11 
EFD,2l CXBl LDX FILE 
DRMBITl BRU *+2l BRU D0PN13 
FD,2 

OUTBITJ BRU D0PN12 

BUFFl LDA BIA, 2 J CBXl LDB DSCMSKl LRSH 2 
DOPN10 
BUFF* LDA BIA,2l LDX FILE? LRSH 2.1 ADM FA,2i LSH 2 

MIN 
= BXOl ADD li LDX = NDXW| BRM DTC 
= IODMSl LDX PACPTRl BRM DPU 
FILEl SKN F0,2l BRU DOPN5 
= -4l BRU DOPN15 
DEVI SKA OUTBITi BRU * + 2 
D0PN14I SKN* DBAJOBJ BRU D0PN3 

DRMOPN 



BRR ■ DRMOPN 

DQPN12 LDA = -1* BRU DOPN9 
D0PN3 BRM DTZ 

STB BFP, 2 

STB BBP,2 

BRM DTAR 

BRU DGPN14 

MIN 

STA SS01 

STA BIA, 2 

LDB =IODMS; STB DOPN20J LDB PACPTR* STB D0PN21 

D0PN6 LDX FILE 

LRSH 2 

EOR FA, 2* ETR =17777785 EOR FA, 2l STA FA, 2 

LSH. 2* ETR DSCMSKl ABC 

LDA TJ ADD =BXOl LDX = NDXW* BRM DTW 

LDB DO PN 2 PI J LDX D0PN2 1* BRM DPI! ', 

LDX FILE* SKN FD,2l'BRU D0PN5* MIN* DBAJOB 

LDA XN4*' ADM FD,2 

BRM DTARl BRU D0PN7* LDX PUPACl STA PA, 2 

LDX BUFFI STA BIA, 2* BRM ■ BSET 

LDB =PUGOl STB DQPN20I LDB PUPACl STB D0PN2H BRU D0PN6 
D0PM7 CLA 

, DQPN 15 LDX PUPAC* STA PA, 2 

DQPN 16 LDA BUFF 

BRM BPUT* LDX FILE 

BRM FRELl BRU PUGO ' 

DOPN5 LDX PUPACl- M IN PL, 25 LDA FILE: 

XMA PA, 21 STA PX,2l BRU PUGO 
DUPN20 ZRO 
D0PN21 ZRO 

V $DSCLS ZROl LDX BUFF 

SKN BIC-21 BRU RDSBl BRR DSCLS 
RDSB COPY XA, XBl ADD = BXGl SKE BIP, 2* BRU *+2l BRU RDSB5 ' 

LDX BIP, 2! LDA XI J ADM -1,2 J CBX 
RDSB5 CXA* ADD. =21 STA 0,2l STA 1,2 
RDSBl CLAl'XMA* BIP, 2.1 STA* 1,25 M IN 1,2.5 MIN BIP, 2; SKE =01 BRU RDSBl 

BRM BSET* LDB BIA, 2l LDA T* ADD = BXO*- LDX = NDXW 

BRM DTW* LDB = IQDMS* LDX PACPTR* BRM DPLil LDX FILE 

SKN FD,2l BRU RDSB2 

LDX PUPACl LDA =TRAPjS STA. PL, 2 1 BRU D0PN16 
RDSB2 LDX BUFF 
RDSB/f LDA* 0,21 SKE =05 BRU RDSB3 

LDA BUFFI ADD =2* STA 0,2* ADD =NDDW* STA 1,2 

LDA =-Tl STA BIG, 2! BRU PUGO 
RDSB3 BRM DTE.; MIN 0,2* BRU RDSB4 
LAS POPD 14600000B, 1, 1,0, 1 

LSM BRU TRAP 

SAS POPD 14700000B, 1, 1,0, 1 

SSM BRU TRAP 

* 

* 'I DM' 4/16/66 " 

* ■ 



* THIS IS THE DRUM INTERRUPT ROUTINE FOR ALL DRUM I/O 

NDCL DATA -1 

* COUNT OF DRUM COMMANDS IN LIST 
EDCL DATA DRO • 

* CURRENT END OF LIST 
IDCL DATA DRQ 

* CURRENT INTERRUPT POINTER ' 
DRMTRY' ZRO 

* TRY-AGAIN COUNTDOWN 



D.SCFLG 


DATA 


-1 


DSCINT 


DATA 


. ' .0 


INTNOP 


ZRO 






BRR 


INTNOP 


IDT 


DATA 


INTNOP, I OR, IDBR* IDP, IDF, IDA, IDWD 


I DM 


ZRO 






DETl 


BRU ID3I DRT; BRU *-3 




J3ETW 






BRU 


I D 1 


I.D2 


LDX : 


EDCL PREVIOUSLY PATCHED. 




LDA 


1*2 




RSH 


, 9 . . ■ 




EOR 


2*2 




ETR 


= 37B 




EO R 


2*2 




RSH 


2 




ETR 


= 3 7B " 


.- 


XX A 






SKR 


RMC*2 




NOP 






COPY 


AX*XB 




LDA 


3* 2 




ETR 


= 7 7B 




COPY 


BA,AX 




BRM* 


IDT*2 




MIN ' 


ACTR 




LDA 


IDCL 




ADD 


= 4 




SKE 


= DRQU 




BRU 


*.+ 2 




LDA 


= DRQ 




STA 


IDCL 




SKR 


NDCL 




BRU 


ID5 


* 


RDC 


FOR FAST AND EFFICIENT AND LONG-LIVED 
(J. MASTBROOK MEMORIAL DISC PATCH) 




CLA 






STA 


BLK31- 




STA 


DSCINT 




LDA 


' =-1 




STA 


DSCFLG 




BRR 


I DM 


ID3 


MIN DSCERRj SKS 12026BJ MIN DSCSER 



DISC ARMS 





LDX 


IDCL; LDA 0,25 LRSH 131 ETR =37B 




CAXJ 


MIN ERDSC, 2 


ID1 


EOM 







IF - 


1 




LDA* 


IDCL 




EOR 


=200B 




STA 


IDR 




ADA 






POT 


IDR 




ENDF 






WIN 


DRMERR 




SKR 


DRMTRY 




BRU 


ID4 • ' 




MIN 


DUERR 




BRU 


ID2 


IDS 


LDA 


=NDTRY-1 




STA 


DRMTRY 


ID4 


LDA 


= IDM 




STA 


BLK31 




LDX 


IDCL 




SKS 


14000B* BRU *-l 




ADA 






POT 


0,2 




LDA 


2,2* STA *+2 




EOM* 


10000BJ EXU 2,21 POT 1,2J SKN 3 




EOM 


3666B? BRR I DM 




EOM 


2626B 




BRR 


I DM 


DSCERR 


ZRO 


- ; . , 


DSCSER 


ZRO 




ERDSC 


BSS 


32 


* MAKE 


FILE 


AVAILABLE 


IDRE 


ZRO J 


LDA FD,2J ETR =CNOT)BITll STA F 


IDR 


ZROJ 


BRM IDF* BRM IDREl BRR IDR 


* CLEAR PROTECTED FILE BUSY BIT 


I DP 


ZRO 


. , 




BRM 


IDF 




LDA 


FD,2 




ETR 


=77377777B 




STA 


FD,2 




BRR 


IDP 


* MARK 


FILE 


NOT BUSY AND SET SECOND POINTER 


IDBR 


ZRO 







EOR 


RRL3 




ETR 


= 7 7B' 




EOR 


RRL3 




STA 


IDR 




LRR3 






POT 


IDR 




BRM 


IDR 




LDX 


FC2 




LDA 


NDDW+2,2 


ETR =: 


2 55 






ADM 


1,2 



21 BRU *+3 



), 2i BRR IDRE 



FROM WORD COUNT 



LRR3 

POT RRL3 

BRR IDBR 

* CHECK FILE ERROR 

IDFI ZRO, LDX IDCL, LDA 3,2, RSH 61 ETR =377B 
CAXJ BRR IDFI 

IDE ZRO, SKN DRMTRY, BRR IDE.; LDA FD,2 

MRG =BIT0, STA FD,2* BRR IDE 

IDF ZRO, BRH IDFI, BRM IDE* BRR IDF 

IDWD ZRO, STA IDRi LRR3, POT IDR 

BRM IDFI* BRM IDRE, LDA FC2, ETR ADMSKl COPY AX,XB 

SKN DRMTRY, BRU IDWDU CLA, STA BIF,2 

CBX, LDA FA, 2, LRSH 171 ETR = 77B, CAXJ MIN DBA, 2 

IDWD2 LRR3, POT RRL3J BRR IDWD 

IDWD1 LDA = -1, STA BDC2, MIN BIP,2 
EAX 2*25 STX -2*25 BRU I DWD8 

* 

* *DPU' 3/20/66 

* DRUM I/O EXIT TO PHANTOM USER 
* 

DPU ' ZRO 

STB DPUll LDA PIM,2, MRG =BIT3l STA PIM,2 

LDA FILE 

RSH 12 

CXA 

RSH 12 

LDA DPU 

ETR ADMSK 

DIR 

BRM EPU ' 

LDX . FILE 

LDA =DBB - 

ADM . FD,2 

LDX DTXS2 

LDA =2 

ADM 3,2 

' BRM DTFF 

BRU* DPU1 
DPU1 ZRO 

* *DRMSI », 'DRMSO' 12/7/65 

* • v ■ ■' 

* SEQUENTIAL I/O DRIVER, CALLED FROM 'GPW . 
* 

DRMSI ZRO 

LDX BIP,2 

LDA 1,2 

SKG =0 

BRU DSI1 

LDX BUFF 

MIN BIP,2 

LDA* BIP>2 

ETR DSCMSK 



CAB 




LDA 


T 


ADD 


= 2 


LDX 


=NDDW+1 


BRM 


DTC 


LDX 


BUFF 


CXA 




ADD 


= 2 


STA 


0*2 


STA 


1*2 7 


LDB* 


BIP*2 


CLA 




SKB 


XI 


MRG 


EORBIT 


ADM 


1*2 


LDX 


DTXS2 


MIN 


3*2 


BRM 


DTFF 


BRR 


DRMSI 


DSI1 LDX 


BUFF 


EAX 


2*2 


STX 


-2*2 


STX 


-1*2 


LDA 


EOFBIT 


ADM 


-1*2 


BRR 


DRMSI 


* ' 




DRMSO ZRO, 


LDA BUFF, 



ADD =BX0+NDXW-2 

SKG BIP*2, BRU DS0 4 
DS02 LDA* BI.P*2, ETR DSCMSK* SKE =0, BRU DS03 

LDX BIP*2, LDA -1*2, BRM DTA? BRU DS0 4 
DS03 STA* BIP*2* BRM WDBJ LDX DTXS2J LDA =5 

ADM 3*2; BRM DTFF, BRR DRMSO 
DS04 LDA =-li STA BDC*2 
DSOl LDA 1*2*- MRG EOFBIT* STA 1*2 

LDA BUFF* ADD =2* STA 0*2 

LDX FILEl LDA FC*2* MRG X7, EOR X5l STA FC*2l BRU TRAP 
WDB ZRO, -CAB, LDA 0*2* SUB BUFF, SUB =2 J STA NDDW+2*2 

LDA T* ADD =2* LDX =NDDW+1 

BRM DTW* LDX BUFFj BRR WDB 

DTD'* •DTT* 





•DTPS f DTHS f DTFS 'DTCS f DTWS f DTXS 'DTSS 'DIMS 


* 


f DTA f , f DTO% f DTE% 'DTN'i 'DTUS f DTZS 'DTRS f DTL 


*. 


1/28/66 


5»« 


GENERALLY USEFUL DRUM ROUTINES 



DTXSl DATA -^ 1 

* COMMAND COUNT 
DTXS2 ZRO . 

* LAST COMMAND LOC 
DTL SI ZRO 

* TEMPORARY BIF^ 



* RESET COMMAND COUNT 




DTP 


ZRO 








LDA 


--1 






STA 


DTXSI 






BRR 


DTP 




* INITIALIZE CORE ADDRESS 




DTH 


ZRO 








RSH 


11 






STB 


• T 






MUL 


= 3 






CBX 








LDA 


RRL2 






L DB 


RRL1 






LCY 


6*2 






ETR 


= 7 7B 






SKE 


= 






BRU 


*+2 






BRU 


TRAP 






LDB 


T 






LCY 


11 






STA 


T 






' BRR 


DTH 




* ENTER COMMAND IN LIST AND 


LOCK MEMORY B 


* A= 


ABS CORE ADDR 




*"B= 


DRUM ADDR 




* X= 


WORD COUNT 


_•• 


DTC 


ZRO 








MIN 


DSCTC 






STA 


DTCS1 






SKN 


DTCST; BRU DTC1J 


CXAl ADD =7 7B 




ETR 


=-100Bj CAXJ MIN 


DSCWC 


DTC1 


CBA 








ETR 


=7777776 






SKG 


=0i BRU TRAP 






MIN 


DTXSI 






STA* 


EDCL 






LDA 


DTCS1 






ETR 


ADMSK 






RSH 


I 4 






CXA 








ETR 


=77777B 






LCY 


14 






LDX 


EDCL 






STX 


DTXS2 






STA 


1*2 






LSH 


19 






LDA 


DTCS1 






ETR 


=140000B 






CBX 








RSH 


14 






CXB 








LSH 


5 






: MRG 


=IOSDW 






SKN 


DTCS1J SUB =200B 





BLOCK 





LOB 


X4 




SKN 


DTCS1 




CLB 






LDX 


EDCL 




STA 


2,2 




STB 


3>2 




LDA 


DTCS1 




RSH 


11 




ETR 


= 37B 




copy 


XB,AX 




MIN 


RMC,2^ 




CBA 


■ 




ADD 


-A 




SKE 


= DRGU 




BRU 


* + 2 




LDA 


= DRQ 




STA 


EDCL 




LDA 


=NDRQ-2 




SUB 


DTXS1 




SKG 


NDCL 




BRU 


*-l 




BRR 


DTC 


QTCS1 


ZRO 





DTW 


ZRO 






MRG 


DCWBIT 




BRM 


DTC 




BRR 


DTW 


* DRUM 


START 


FOR FILE OPERATIONS 


DTFF 


ZRO 






LDX 


FILE 




LDA 


X2 




MRG 


FD,2 




STA 


FD,2 




LDB 


FILE 




LSH 


30 




MRG 


= 1 




LDX 


DTXS2 


„ 


ADM 


■'3* 2 




BRM . 


DTS 




BRR 


DTFF 


* DRUM 


START 


AND EXIT 


* DRUM 


START 


• / 


DTS 


ZRO 






LDA 


DTXS1 




ADD 


= 1 




SKG =0| BRR DTS 




DIR 






ADM 


NDCL 




SKN 


DSCFLG 




BRU . 


DTS1 




CLA 


~^ ; 




SKE 


BLK31 




BRU 


DTS2 




EIR 







BRM 


DTSS 


DTS1 


EIR .. 






BRM 


DTP 




BRR 


DTS 


DTS2 


lda 


= DTSS 




STA 


DSCINT 




BRU 


DTS1 


* 'REALLY START THE DISC 


DTSS 


ZRO 






MIN 


D'SCFLG 




LDA 


= IDM 


■ 


STA 


DSCINT 




STA 


BLK31 




LDA - 


=NDTRY-1 




STA 


DRMTRY 




LDX 


IDCL 




DRTl 


BRU *-ll SKS 14000B1 BRU 




ADA 






POT 


0*2 




LDA 2 


*2* STA * + 2 




EOM* 


10000BI EXU 2,21,. POT 1*2 




EOM 3666BJ BRR DTSS 




EOM 2626B1 BRR DTSS 


* ZERO 


I N DEX 


BLOCK 


DTZ 


ZRO . 




/ 


LDA 


BUFF 




ADD 


=23600000B+BXO+NDXW~2 




STA 


DTZ 1 




CLB 






LDX 


--NDXW+2 


DTZ1 


STB 


BXO+NDXW-2*2 




BRX 


DTZl 




LDX 


BUFF 




MIN 


BI C* 2 




BRR 


DTZ 


DBI 


POPD 


14200000B, 1* 1*0* 1 


DBO 


POPD 


14300000B* 1* 1*0* 1 


DWT 


POPD 


14400000B* 1* 1*0* 1 


DWO 


PO PD 


14 500000B* 1* 1*0* 1 




BRU 


TRAP 


* 'SSMF' 10/31/65 



*- 1 



SKN 3*21 BRU *+3 



* THIS CAUSES A RANDOM FILE TO BE DECLARED AS SECONDARY MEMORY 
SSMF BRU TRAP . 

* • 

* 'SWSF' 10/31/65 , 

.* THIS CHANpES THE MODE OF A SEQUENTIAL FILE TO INPUT 

* OR OUTPUT 

■ *■■ ■ . ' ' 

SWSF BRU TRAP 



* »DFER** 'DFRX' 11/11/65 
*■.'■ 



* THESE DELETE AND READ INDIVIDUAL INDEX BLOCKS 
■* 
DFER 



SKN 


PQU,2 


BRU 


TRAP 


BRM 


DTE 


BRU 


POPX 



DFRX BRU TRAP 
*' 'DFDL 18/ 7/ 65 

* THIS DELETES THE CONTENTS OF A DRUM FILE 

* , 

DFDL BRM.IOIJ SKB DRMBITj BRU * + 2s BRU TRAP 
SKB- OUTBIT* BRU *+2,' BRU TRAP 
LDX BUFFJ LDA =-1ji STA BDC*2i MIN 61 C, 2 
LDA BUFFl ADD =BXO 
STA SIP, 2 

LDA BUFFI ADD = 2l STA 0,21 ADD =NDDW 
STA l,2i BRU POPX 



* 'DFCD' 3/20/66 

* ■ . ' • 

* ADD THE NUMBER OF DATA WORDS IN FILE .(A) TO X 

* ' 
DFCD BRM 10 1 

SKB DRMBIT 
BRU *+2 
BRU TRAP 
LDX BUFF 
DFCD1 CXA 

-27600000B+BXO+NDXW-2 

DFCD2 

=-NDXW+2 

BXO+NDXW-2,2 

= 

*+3 

=2 55 

SS03 

DFCD2 



ADD 
STA 
LDX 
DFCD2 LDA 
SKG 
BRU 
LDA 
ADM 
BRX 
BRU POPX 

* 'CBRF' 12/7/65 

* ■ • 

* THIS DELETES A BLOCK OF INFORMATION FROM A RANDOM FILE 

* *.DISR', *DDLR* 12/7/65 
* 

* THESE INSERT AND DELETE LOGICAL RECORDS IN A SEQUENTIAL FILE 

IF -1 

DISR BRU TRAP 
DDLR BRU TRAP 



* •DSFS *'DSB% f DSSS f DSZ f 12/13/65 

* 

*. SPACE FORWARD OR BACKWARD 1 RECORD 

* • 

* VDIEORS f DOEOR f 12/7/65 
& ' /■ 

* SPACE TO END OF. RECORD (INPUT) OR WRITE END OF RECORD (OUTPUT) 

* ON SEQUENTIAL, FILE 

* ' ' ' ■ 
DIEOR; BRU TRAP 

DOEOR BRU TRAP ' (NOT IMPLEMENTED) 

* r DOEOF f 3/21/66 

■t ' ■ 

.* DELETE REMAINDER OF FILE 

DO EOF , BRU TRAP- 
% ' ' 

* 'DFSRS'DBSR' 12/7/65 

* '■■.-• 

* SPACE FORWARD OR BACKWARD (B) LOGICAL RECORDS 

* - 
DFS R BRU TRAP 

DBSR BRU TRAP 
DREW BRU TRAP 
DWND. • BRU TRAP 
ENDF 

* BRS 61 AND 62 

* READ AND WRITE ON DISC 

* USED TO GET AUD'S AND UFD * S 

* (A) = CORE ADDRESS 
■■* (6) = DISC ADDRESS 

* (X) = WORD COUNT 
A WD 

ARD 



LDB 


= DTW 


BRU 


ARD.+ 1 


LDB 


= DTC 


STB . 


DTZ 


sm 


PQU*2 


BRU 


TRAP 


ETR 


A OMSK 


ST A 


T 


ETR 


=377 78 


ADD 


SS03 


SKG - 


=40008 


BRU 


**2 


BRU 


TRAP 


LDA 


SS03 


SK G 


X0 


BRU 


ARWD1 


LDA 


SS0J2' 


SKG 


X0 



BHU ARWD1 

LDX ■ T 

LDA 0, 6 

STA 0, 6 , 

LDA T 

' BRM DTH 

LDB SS02 

' "SK8 =770000008 

BRU TRAP 

LDX SS03 

BRM* DTZ 

, BRM DISAJ ADD = 55 LDX DTXS25 ADM 3* 2V BRM DTS • 
SARWD2 LDB PACDM85 LDX =QIOj MIN 0.? BRU POPDMS 
ARWDl ' MIN 05 BRU POPX 
IDA ZROl LDX IDCL5 LDA 3*25 LRSH 65 MRG PLMSK5 CAX 

SKN DRMTRY5 MIN PL, 2 

LDA PIM,2J ETR = (i\'OT)BIT35 STA PIM,2! BRR. IDA 
SDISA ZRO 

LDX PACPTRJ LDA.PIM,.2i MRG =BIT35 STA PIM,2 

COPY XA, B* ETR PRMSKl LSH 65 BRR DISA 

END 



